procedure Example1;

with Ada.Text_IO;
procedure Example1 is
   use Ada.Text_IO;
begin
   Put_Line ("Hello.");
end Example1;
